home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / dbtable.dxr / 00033_copy icon.ls < prev    next >
Encoding:
Text File  |  2000-01-18  |  798 b   |  35 lines
  1. property ancestor, pXMinLoc, pCursor
  2. global gTableClipboard, gDBTableVarList
  3.  
  4. on new me, buttonName, castName, xSprite, xLoc, descendant
  5.   ancestor = new(script("generic button"), buttonName, castName, xSprite, xLoc, me)
  6.   pXMinLoc = xLoc.locH
  7.   MyObj = getaProp(gDBTableVarList, GetObjProp())
  8.   pCursor = GetPointingCursor(MyObj)
  9.   return me
  10. end
  11.  
  12. on performFunction me
  13.   tell the stage
  14.     playSFX(5)
  15.   end tell
  16.   MyObj = getaProp(gDBTableVarList, GetObjProp())
  17.   TableCopy(MyObj)
  18.   return me
  19. end
  20.  
  21. on enable me
  22.   enable(ancestor)
  23.   set the cursor of sprite the pChannel of me to pCursor
  24. end
  25.  
  26. on disable me
  27.   disable(ancestor)
  28.   set the cursor of sprite the pChannel of me to -1
  29. end
  30.  
  31. on buttonLoc me, size
  32.   set the locH of sprite the pChannel of me to getAt([pXMinLoc, 517], size)
  33.   return me
  34. end
  35.